home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
grafik
/
raystorm
/
arexx
/
eight.ray
< prev
next >
Wrap
Text File
|
1995-08-06
|
1KB
|
61 lines
/***************
* NAME: eight.ray
* VERSION: 1.0 06.08.1995
* DESCRIPTION: Billard scene
* AUTHORS: Andreas Heumann
* BUGS: none
* TO DO: none
* HISTORY: DATE NAME COMMENT
* 06.08.95 ah initial release
***************/
OPTIONS RESULTS
IF ~SHOW('P','RAYSTORM') THEN DO /* if not allready running, start RayStorm */
ADDRESS COMMAND 'run >NIL: <NIL: /raystorm'
ADDRESS COMMAND WaitForPort RAYSTORM
END
ADDRESS RAYSTORM
BRUSHPATH '/brushes'
OBJECTPATH '/objects'
SETSCREEN 160 128
SETCAMERA '100 100 -120 0 5 5 0 1 0 25 20'
SETWORLD 0 0 0 50 50 50
POINTLIGHT '-20 200 -100 255 255 255 SHADOW'
POINTLIGHT '-20 200 100 255 255 255 SHADOW'
NEWSURFACE TABLETOP
DIFFUSE 0 100 0
PLANE 'TABLETOP 0 0 0 0 1 0'
NEWSURFACE EIGHT
DIFFUSE 0 0 0
AMBIENT 38 38 38
REFLECT 38 38 38
BRUSH 'eight_brush.iff COLOR FLAT -4 1 -5.1 0 0 0 8 8 10.2'
SPHERE 'EIGHT 0 5 0 5'
NEWSURFACE WHITE
DIFFUSE 255 255 255
AMBIENT 51 51 51
REFLECT 38 38 38
SPHERE 'WHITE 0 5 10 5'
LOADOBJ 'eight_queue.iob 20 0 0 0 0 0 1 1 1'
ANTIALIAS 2
STARTRENDER
SAVEPIC 'eight.iff'
CLEANUP
exit 0